home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER3 / ROCKY / COLORMAP.BAS < prev    next >
BASIC Source File  |  1994-01-01  |  1KB  |  59 lines
  1. ' COLORMAP.BAS
  2.  
  3. SCREEN 12
  4. WINDOW (-16, -2)-(46, 2)
  5.  
  6. OPEN "colormap.inc" FOR OUTPUT AS #1
  7.  
  8. pi = 3.14159
  9. rad = pi / 180
  10. phz = 1
  11. FOR phz = 0 TO 360 STEP 12
  12. FOR n = 0 TO 30
  13.    x = n * 12 + 6
  14.  
  15.    acount$ = "a" + RIGHT$("00" + LTRIM$(STR$(n)), 2)
  16.    bcount$ = "b" + RIGHT$("00" + LTRIM$(STR$(n)), 2)
  17.    ccount$ = "c" + RIGHT$("00" + LTRIM$(STR$(n)), 2)
  18.  
  19.    IF phz = 0 THEN
  20.    PRINT #1, USING "define \ \ (1 + sin(### * rad)) / 2"; acount$; x
  21.    PRINT #1, USING "define \ \ (1 + cos((phz + ###) * rad)) / 2"; bcount$; x
  22.    PRINT #1, USING "define \ \ (1 - sin((2*phz + ###) * rad)) / 2"; ccount$; x
  23.    PRINT #1,
  24.    END IF
  25.  
  26.    r = (1 + SIN(x * rad)) / 2
  27.    g = (1 + COS((phz + x) * rad)) / 2
  28.    B = (1 - SIN((2 * phz + x) * rad)) / 2
  29.  
  30.    CIRCLE (n, r), .2, 4
  31.    CIRCLE (n, g), .2, 2
  32.    CIRCLE (n, B), .2, 1
  33.  
  34. NEXT n
  35.  
  36.    LOCATE 7, 37: PRINT "frame "; phz / 12
  37.    LOCATE 16, 19: PRINT 0
  38.    LOCATE 8, 19: PRINT 1
  39.    LOCATE 12, 9: PRINT "color value"
  40.    LOCATE 9, 61: PRINT "green"
  41.    LOCATE 11, 61: PRINT "red"
  42.    LOCATE 15, 61: PRINT "blue"
  43.  
  44.  
  45.    LINE (0, 0)-(30, 1), 7, B
  46.    FOR x = 1 TO 29
  47.       LINE (x, 0)-(x, .03)
  48.    NEXT x
  49.    LOCATE 17, 20: PRINT 0
  50.    LOCATE 17, 59: PRINT 29
  51.    LOCATE 17, 33: PRINT "color_map index"
  52.    LOCATE 22, 20: PRINT "PRESS ANY KEY TO DISPLAY THE NEXT COLOR_MAP."
  53.    DO WHILE INKEY$ = "": LOOP
  54.    CLS
  55. NEXT phz
  56. LOCATE 22, 23: PRINT "COLOR_MAP WRITTEN TO COLORMAP.INC"
  57. CLOSE #1
  58.  
  59.